home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / ASDebugging.p < prev    next >
Text File  |  1996-05-01  |  6KB  |  173 lines
  1. {
  2.      File:        ASDebugging.p
  3.  
  4.      Contains:    AppleScript Debugging Interfaces.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT ASDebugging;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __ASDEBUGGING__}
  28. {$SETC __ASDEBUGGING__ := 1}
  29.  
  30. {$I+}
  31. {$SETC ASDebuggingIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __APPLEEVENTS__}
  35. {$I AppleEvents.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __APPLESCRIPT__}
  38. {$I AppleScript.p}
  39. {$ENDC}
  40.  
  41. {$PUSH}
  42. {$ALIGN MAC68K}
  43. {$LibExport+}
  44.  
  45. {$IFC FOR_SYSTEM7_ONLY }
  46. {
  47. *************************************************************************
  48.     Mode Flags
  49. *************************************************************************
  50. }
  51. {
  52.      This mode flag can be passed to OSASetProperty or OSASetHandler
  53.     and will prevent properties or handlers from being defined in a context
  54.     that doesn't already have bindings for them. An error is returned if
  55.     a current binding doesn't already exist. 
  56. }
  57.  
  58. CONST
  59.     kOSAModeDontDefine            = $0001;
  60.  
  61. {
  62. *************************************************************************
  63.     Component Selectors
  64. *************************************************************************
  65. }
  66.     kASSelectSetPropertyObsolete = $1101;
  67.     kASSelectGetPropertyObsolete = $1101;
  68.     kASSelectSetHandlerObsolete    = $1103;
  69.     kASSelectGetHandlerObsolete    = $1104;
  70.     kASSelectGetAppTerminologyObsolete = $1105;
  71.     kASSelectSetProperty        = $1106;
  72.     kASSelectGetProperty        = $1107;
  73.     kASSelectSetHandler            = $1108;
  74.     kASSelectGetHandler            = $1109;
  75.     kASSelectGetAppTerminology    = $110A;
  76.     kASSelectGetSysTerminology    = $110B;
  77.     kASSelectGetPropertyNames    = $110C;
  78.     kASSelectGetHandlerNames    = $110D;
  79.  
  80. {
  81. *************************************************************************
  82.     Context Accessors
  83. *************************************************************************
  84. }
  85. FUNCTION OSASetProperty(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR variableName: AEDesc; scriptValueID: OSAID): OSAError;
  86.     {$IFC NOT GENERATINGCFM}
  87.     INLINE $2F3C, $0010, $1106, $7000, $A82A;
  88.     {$ENDC}
  89. FUNCTION OSAGetProperty(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR variableName: AEDesc; VAR resultingScriptValueID: OSAID): OSAError;
  90.     {$IFC NOT GENERATINGCFM}
  91.     INLINE $2F3C, $0010, $1107, $7000, $A82A;
  92.     {$ENDC}
  93. FUNCTION OSAGetPropertyNames(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; VAR resultingPropertyNames: AEDescList): OSAError;
  94.     {$IFC NOT GENERATINGCFM}
  95.     INLINE $2F3C, $000C, $110C, $7000, $A82A;
  96.     {$ENDC}
  97. FUNCTION OSASetHandler(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR handlerName: AEDesc; compiledScriptID: OSAID): OSAError;
  98.     {$IFC NOT GENERATINGCFM}
  99.     INLINE $2F3C, $0010, $1108, $7000, $A82A;
  100.     {$ENDC}
  101. FUNCTION OSAGetHandler(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR handlerName: AEDesc; VAR resultingCompiledScriptID: OSAID): OSAError;
  102.     {$IFC NOT GENERATINGCFM}
  103.     INLINE $2F3C, $0010, $1109, $7000, $A82A;
  104.     {$ENDC}
  105. FUNCTION OSAGetHandlerNames(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; VAR resultingHandlerNames: AEDescList): OSAError;
  106.     {$IFC NOT GENERATINGCFM}
  107.     INLINE $2F3C, $000C, $110D, $7000, $A82A;
  108.     {$ENDC}
  109. FUNCTION OSAGetAppTerminology(scriptingComponent: ComponentInstance; modeFlags: LONGINT; VAR fileSpec: FSSpec; terminologyID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AEDesc): OSAError;
  110.     {$IFC NOT GENERATINGCFM}
  111.     INLINE $2F3C, $0012, $110A, $7000, $A82A;
  112.     {$ENDC}
  113. {
  114.  Errors:
  115.        errOSASystemError        operation failed
  116. }
  117. FUNCTION OSAGetSysTerminology(scriptingComponent: ComponentInstance; modeFlags: LONGINT; terminologyID: INTEGER; VAR terminologyList: AEDesc): OSAError;
  118.     {$IFC NOT GENERATINGCFM}
  119.     INLINE $2F3C, $000A, $110B, $7000, $A82A;
  120.     {$ENDC}
  121. {
  122.  Errors:
  123.        errOSASystemError        operation failed
  124. }
  125. {
  126.  Notes on terminology ID
  127.  
  128.     A terminology ID is derived from script code and language code
  129.     as follows;
  130.  
  131.         terminologyID = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  132. }
  133. {
  134. *************************************************************************
  135.     Obsolete versions provided for backward compatibility:
  136. }
  137. FUNCTION ASSetProperty(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR variableName: AEDesc; scriptValueID: OSAID): OSAError;
  138.     {$IFC NOT GENERATINGCFM}
  139.     INLINE $2F3C, $000C, $1101, $7000, $A82A;
  140.     {$ENDC}
  141. FUNCTION ASGetProperty(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR variableName: AEDesc; VAR resultingScriptValueID: OSAID): OSAError;
  142.     {$IFC NOT GENERATINGCFM}
  143.     INLINE $2F3C, $000C, $1102, $7000, $A82A;
  144.     {$ENDC}
  145. FUNCTION ASSetHandler(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR handlerName: AEDesc; compiledScriptID: OSAID): OSAError;
  146.     {$IFC NOT GENERATINGCFM}
  147.     INLINE $2F3C, $000C, $1103, $7000, $A82A;
  148.     {$ENDC}
  149. FUNCTION ASGetHandler(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR handlerName: AEDesc; VAR resultingCompiledScriptID: OSAID): OSAError;
  150.     {$IFC NOT GENERATINGCFM}
  151.     INLINE $2F3C, $000C, $1104, $7000, $A82A;
  152.     {$ENDC}
  153. FUNCTION ASGetAppTerminology(scriptingComponent: ComponentInstance; VAR fileSpec: FSSpec; terminologID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AEDesc): OSAError;
  154.     {$IFC NOT GENERATINGCFM}
  155.     INLINE $2F3C, $000E, $1105, $7000, $A82A;
  156.     {$ENDC}
  157. {
  158.  Errors:
  159.         errOSASystemError        operation failed
  160. }
  161. { ************************************************************************ }
  162. {$ENDC}
  163. {$ALIGN RESET}
  164. {$POP}
  165.  
  166. {$SETC UsingIncludes := ASDebuggingIncludes}
  167.  
  168. {$ENDC} {__ASDEBUGGING__}
  169.  
  170. {$IFC NOT UsingIncludes}
  171.  END.
  172. {$ENDC}
  173.